home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - DOS Part 4 / DOS126.dsk / BOOT.bas < prev    next >
BASIC Source File  |  2012-02-16  |  3KB  |  60 lines
  1. 5  LOMEM: 16384
  2. 10 D$ =  CHR$(4)
  3. 20  PRINT D$;"BLOAD RUNPACK"
  4. 30  PRINT D$;"BLOAD PIRATE,A768"
  5. 31  HGR : PRINT D$;"BLOADPIRATE.PAK": POKE  -16302,0: CALL 8048
  6. 32  PRINT D$;"BLOAD M.PIRATE,A24576"
  7. 34  POKE 30,0: POKE 31,96: CALL 768
  8. 40  PRINT D$;"BLOAD SPIRAL2": PRINT D$;"BLOAD LOGO.PIC,A$4000": POKE 27802,30: CALL 27648
  9. 50  HOME : POKE  -16301,0
  10. 55  VTAB 23: HTAB 8: FLASH : PRINT "WHICH NUMBER DO YOU WANT?": NORMAL 
  11. 60 A$ = "                                        1=PT-6502          2=STAR STRIKE          3=ARCTIC PASSAGE"
  12. 70 C = 21:D = 70
  13. 80  FOR X = 1 TO D
  14. 90  VTAB C
  15. 100 V$ =  MID$ (V$,2) + LEFT$(V$,1):A$ =  MID$ (A$,2) + LEFT$(A$,1)
  16. 110 A =  PEEK( -16336)
  17. 120  PRINT  MID$ (V$,1)" " LEFT$(A$,38)" " MID$ (V$,1)
  18. 130 A =  PEEK( -16336)
  19. 140 SS =  PEEK( -16384): IF SS -128 = 49  THEN 1000
  20. 150  IF SS -128 = 50  THEN 2000
  21. 160  IF SS -128 = 51  THEN 3000
  22. 170  NEXT X: GOTO 70
  23. 1000  HOME : TEXT : POKE  -16368,0: SPEED= 120
  24. 1100  INVERSE : VTAB 1: HTAB 17: PRINT "PT-6502": NORMAL 
  25. 1200  PRINT : PRINT "IT WASN'T TOO SMART TO ATTACK THE ENTIRE ENEMY NAVY WITH ONLY A SINGLE PT BOAT."
  26. 1250  PRINT : PRINT "BUT, SINCE THIS IS YOUR FIRST COMMAND AS  A NEW CAPTAIN, I GUESS THAT YOU ARE    ENTITLED TO A FEW ERRORS IN JUDGEMENT."
  27. 1260  PRINT : PRINT "USE PADDLE AND GAME BUTTON (0) FOR YOUR SURVIVAL."
  28. 1270  PRINT : PRINT "AT LEAST, YOU CAN WITHSTAND (7) HITS    BEFORE YOU HAVE TO ADMIT DEFEAT."
  29. 1499  GOSUB 3599
  30. 1500  PRINT  CHR$(4);"BRUN PT-6502"
  31. 2000  HOME : TEXT : POKE  -16368,0: SPEED= 120
  32. 2100  INVERSE : VTAB 1: HTAB 15: PRINT "STAR STRIKE": NORMAL 
  33. 2200  PRINT : PRINT "JOYSTICK YOUR SAUCER INTO POSITION IN AN ATTEMPT TO DESTROY THE EVIL DEATH STAR."
  34. 2250  PRINT "AVOID OR DESTROY:"
  35. 2300  PRINT "1-ORBITING DRONES": PRINT "2-METEOR SHOWERS": PRINT "3-RELENTLESS DEATH RAYS"
  36. 2350  PRINT "USE BOTH GAME BUTTONS TO FIRE IN EITHER DIRECTION."
  37. 2400  PRINT "YOU MUST BE IN CLOSE RANGE TO PENETRATE THE STARS' DEFENSES."
  38. 2450  PRINT "MAY THE FARCE BE WITH YOU!"
  39. 2499  GOSUB 3599
  40. 2500  PRINT  CHR$(4);"BRUN STAR STRIKE"
  41. 3000  HOME : TEXT : POKE  -16368,0: SPEED= 120
  42. 3100  INVERSE : VTAB 1: HTAB 14: PRINT "ARCTIC PASSAGE": NORMAL 
  43. 3150  PRINT : PRINT "JOYSTICK YOUR SHIP INTO POSITION TO     SCORE POINTS BY SHOOTING OUT THE        FLASHING DOCKS AND GOLD MINE ENTRANCE."
  44. 3200  PRINT "AVOID: ALL ICE FIELDS"
  45. 3210  PRINT "       RAPID ICEBERGS"
  46. 3230  PRINT "       ORNERY ESKIMOS"
  47. 3300  PRINT : PRINT "GOOD NEWS: MOVING ICEBERGS CAN BE SHOT  OUT OF YOUR WAY."
  48. 3305  PRINT "BAD NEWS: THAT'S NOT AS EASY AS IT      SOUNDS."
  49. 3310  PRINT "(USE BOTH BUTTONS TO DIRECT YOUR FIRE)"
  50. 3499  GOSUB 3599
  51. 3500  PRINT  CHR$(4);"BRUN ARCTIC PASSAGE"
  52. 3599  VTAB 16: HTAB 11: INVERSE : SPEED= 255
  53. 3600  PRINT "GENERAL INSTRUCTIONS": NORMAL : PRINT 
  54. 3610  PRINT "(ESC) TO PAUSE/THEN ANY KEY TO CONTINUE"
  55. 3620  PRINT "(SPACE) TO RESTART AND HOLD HI-SCORE"
  56. 3630  PRINT "(RESET) TO RESTART AND ZERO HI-SCORE"
  57. 3640  PRINT "(RE-BOOT DISK) TO SELECT ANOTHER GAME"
  58. 4000  VTAB 23: HTAB 9: FLASH : PRINT "(PRESS ANY KEY TO START)": NORMAL 
  59. 4100  IF  PEEK( -16384) >127  THEN  HOME : VTAB 12: HTAB 15: FLASH : PRINT "GAME LOADING": NORMAL : VTAB 18: HTAB 2: PRINT "(MADE WITH BR0DERBUNDS' ARCADE MACHINE)": RETURN 
  60. 4200  GOTO 4100